100 :  REM* SIMULATION VON SCHWINGUNGSVORGAENGEN *
105 :  REM* FUER C64 BITTE VORHER SIMON'S BASIC LADEN *
110 :  REM* ODER GRAPHIKBEFEHLE AN EIGENES SYSTEM ANPASSEN *
113 :
115 :
120 :  REM* KENNGROESSEN DES SCHWINGUNGSSYSTEMS *
130 EFQ=.01:D=0:A=0:WA=0
140 V=0:X=80: REM* ANFANGSBEDINGUNGEN *
150 :  XM=1:C=0: REM* X-MASSSTAB *
160 :  d
1,6: REM* GRAPHIK EINSCHALTEN *
170 :  d0,100,319,100,1: REM* ABSZISSE *
180 :  d0,0,0,199,1: REM* ORDINATE *
190 FOR N=0TO319
200 V=V-D*V-EFQ*X-A*SIN(WA*N):X=X+V
210 :  IFABS(X)>XM*100THEN250: REM* d~OR VERMEIDEN *
220 :  IFC=0THENdN,100-X/XM,1:C=1:GOTO240: REM* 1.PUNKT SETZEN *
230 :  dN-1,100-XL/XM,N,100-X/XM,1: REM* PUNKTE VERBINDEN *
240 :  XL=X: REM* LETZTES X MERKEN *
250 NEXT
260 :  GOTO260: REM* WARTESCHLEIFE. AUSSTIEG MIT STOP-TASTE *